home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / giochi / hf1.lha / DiskinVaihto.Amos / DiskinVaihto.amosSourceCode
AMOS Source Code  |  1993-03-08  |  657b  |  31 lines
  1. Load "HF1:DiskinVaihto1.Abk"
  2. Open In 1,"Hf1:HFlatauskuva diskinv.anim8"
  3. L=Frame Length(1,999)
  4. A=Frame Load(1 To 6,999)
  5. Screen Open 1,320,256,4096,Lowres
  6. B=Frame Play(6,1,1)
  7. Double Buffer 
  8. Hide 
  9. Screen Open 2,320,50,8,Lowres : Cls 0 : Flash Off : Hide 
  10. Screen Display 2,,240,,
  11. Get Sprite Palette 
  12.  
  13. Screen 1
  14. Close 1
  15. Autoback 0
  16. Update Off 
  17.  
  18. Screen To Front 2
  19. While Not Exist("HF2:")
  20.    SEURAAVA=Frame Play(6,1)
  21.    If AB=0 Then Screen 2 : Bob 0,155,30,1 : Bob Update : AB=1 : Screen 1
  22.    For COUNTER=2 To A-1
  23.       SEURAAVA=Frame Play(SEURAAVA,1)
  24.       Screen Swap 
  25.       Wait Frame Param+3
  26.    Next COUNTER
  27. Wend 
  28. Bob Off 
  29. Screen Close 1
  30. Screen Close 2
  31. Erase All